* test/lisp/vc/vc-tests.el (vc-test-sccs06-version-diff): Fix it.

diff --git a/test/lisp/vc/vc-tests.el b/test/lisp/vc/vc-tests.el
index 39a68275a032ddcd274c572f8c59a81b86e2dfba..16ef5cc2f9c2532eb22c99967be7a7a1f72da564 100644 (file)
--- a/test/lisp/vc/vc-tests.el
+++ b/test/lisp/vc/vc-tests.el
@@ -640,7 +640,7 @@ This checks also `vc-backend' and `vc-responsible-backend'."
               (with-current-buffer buff
                 (progn
                   ;; Optionally checkout file.
-                  (when (or (eq backend 'RCS) (eq backend 'CVS))
+                  (when (memq backend '(RCS CVS SCCS))
                     (vc-checkout tmp-name))
 
                   ;; Checkin file.
@@ -649,7 +649,7 @@ This checks also `vc-backend' and `vc-responsible-backend'."
                   (log-edit-done))))
 
             ;; Modify file content.
-            (when (or (eq backend 'RCS) (eq backend 'CVS))
+            (when (memq backend '(RCS CVS SCCS))
               (vc-checkout tmp-name))
             (write-region "updatedtext" nil tmp-name nil 'nomessage)